home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / internet-tools / amitalk / talk.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-03-07  |  620 b   |  22 lines
  1. /* Rexx script for AmiTALK with CNet   */
  2. /* By Brian Gunn and MustangVR  03/02/95 */
  3. options results
  4. buffer flush
  5. gu = getuser
  6. final=""
  7. gu 1300546;uucp=result
  8. gu 1202244;did=result-1
  9. if did>0 then do
  10.         do i=1 to did
  11.                 gu 1302246+i*61
  12.                 final=final || result" "
  13.         end
  14.         final=trim(final)
  15. end
  16. if final="" then do
  17.  transmit 'n1c2You must enter the address of the person you wish to Talk with.n1c10}Usagec5:c15} Talk c5<c10}userc5>c1@c2sitec5.c2comn1'
  18.  exit;end
  19. changewhere 'Talk 'final
  20. transmit 'f1c2#4talk shell 'final' from 'uucp'}'
  21. transmit 'f1';end;exit
  22.